home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / HyperCard Related / XCMDs & XFCNs / PopUpMenu 1.1 / PopUpMenu.p < prev    next >
Encoding:
Text File  |  1991-06-05  |  4.3 KB  |  184 lines  |  [TEXT/MPS ]
  1. {$R-}
  2. {$S PopUpMenu }
  3.  
  4. { 
  5.     
  6.     PopUpMenu(MenuItems, CheckedItem, Top, Left)
  7.     
  8.     This HyperCard external function returns the selection from a popup
  9.     menu created from a HyperCard item list (the first parameter).  The
  10.     menu is placed on the screen so that the checked item is at the
  11.     position (Top, Left) in global coordinates.
  12.     
  13.     It uses the DoPopUpMenu function from the MenuTools unit.
  14.     
  15.     It is better than most PopUpMenu implementations (he said modestly)
  16.     because it is not limited to 256 characters’ worth of menu items.
  17.  
  18. }
  19.  
  20. UNIT DummyUnit;
  21.  
  22. INTERFACE
  23.  
  24.     USES MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf, HyperXCmd, MenuTools;
  25.  
  26.     PROCEDURE EntryPoint(paramPtr: XCmdPtr);
  27.  
  28. IMPLEMENTATION
  29.  
  30.     PROCEDURE PopUpMenu(paramPtr: XCmdPtr);
  31.     FORWARD;
  32.  
  33.     PROCEDURE EntryPoint(paramPtr: XCmdPtr);
  34.     BEGIN
  35.         PopUpMenu(paramPtr)
  36.     END { entrypoint } ;
  37.  
  38.  
  39.     PROCEDURE PopUpMenu(paramPtr: XCmdPtr);
  40.  
  41.     CONST
  42.     MenuID = 128;
  43.  
  44.     VAR
  45.     MenuItems:            Ptr;
  46.     CheckedItem:        LONGINT;
  47.     SelectedItem:        LONGINT;
  48.     Top:                LONGINT;
  49.     Left:                LONGINT;
  50.     CardWindowTop:        LONGINT;
  51.     CardWindowLeft:        LONGINT;
  52.     
  53.  
  54.         FUNCTION ParamToNum(Param: Handle): LongInt;
  55.  
  56.         VAR
  57.             Str: Str255;
  58.  
  59.         BEGIN
  60.             ZeroToPas(ParamPtr, Param^, Str);
  61.             ParamToNum := StrToNum(ParamPtr, Str);
  62.         END { ParamToNum } ;
  63.  
  64.         FUNCTION NumToParam(Num: LongInt): Handle;
  65.  
  66.         VAR
  67.             Str: Str255;
  68.  
  69.         BEGIN
  70.             NumToStr(ParamPtr, Num, Str);
  71.             NumToParam := PasToZero(ParamPtr, Str)
  72.         END { NumToParam } ;
  73.         
  74.         PROCEDURE GetCardWindowParams(VAR CardWindowTop: LONGINT; 
  75.                                         VAR CardWindowLeft: LONGINT);
  76.         VAR
  77.             WindowTopString:             Handle;
  78.             WindowLeftString:             Handle;
  79.             AString:                    Str255;
  80.         BEGIN
  81.     
  82.             WindowTopString := EvalExpr(ParamPtr, 'the top of card window');
  83.             WindowLeftString := EvalExpr(ParamPtr, 'the left of card window');
  84.             ZeroToPas(ParamPtr, WindowTopString^, AString);
  85.             CardWindowTop := StrToNum(ParamPtr, AString);
  86.     
  87.             ZeroToPas(ParamPtr, WindowLeftString^, AString);
  88.             CardWindowLeft := StrToNum(ParamPtr, AString);
  89.     
  90.             DisposHandle(WindowTopString);
  91.             DisposHandle(WindowLeftString);
  92.     
  93.         END {GetCardWindowParams} ;
  94.     
  95.         PROCEDURE AppendAllMenuItemsPtr(Menu: MenuHandle; MenuItems: Ptr);
  96.     
  97.         VAR
  98.             StartPos:                LONGINT;
  99.             EndHasBeenReached:        Boolean;
  100.             NewLength:                INTEGER;
  101.             PasMenuItems:            Str255;
  102.         BEGIN
  103.             
  104.             { The input is a Ptr string (C-style string) containing possibly 
  105.               more than 250 characters of menu items to be added to the list.
  106.               We break the input up into 250 character chunks as many times as possible,
  107.               calling AppendAllMenuItems on each chunk. }
  108.               
  109.             StartPos := 0;
  110.             EndHasBeenReached := false;
  111.             
  112.             REPEAT
  113.             
  114.                 ZeroToPas(ParamPtr, Pointer(Ord4(MenuItems) + StartPos), PasMenuItems);
  115.                 NewLength := length(PasMenuItems);
  116.                 
  117.                 IF (NewLength > 250) THEN
  118.                     BEGIN
  119.                         FOR NewLength := 250 DOWNTO 1 DO
  120.                             IF (PasMenuItems[NewLength] = ',') THEN Leave;
  121.                         NewLength := NewLength - 1;
  122.                         IF (NewLength) = 0 THEN Exit(AppendAllMenuItemsPtr);
  123.                         PasMenuItems[0] := chr(NewLength)
  124.                     END
  125.                 ELSE
  126.                     EndHasBeenReached := true;
  127.                 AppendAllMenuItems(Menu, PasMenuItems);
  128.                 StartPos := StartPos + NewLength + 1
  129.                         
  130.             UNTIL (EndHasBeenReached = true);
  131.         
  132.         END { AppendAllMenuItemsPtr } ;
  133.     
  134.         FUNCTION DoPopUpMenuPtr(MenuID: INTEGER; MenuItems: Ptr; CheckedItem: LONGINT;
  135.                             Top: LONGINT; Left: LONGINT): LONGINT;
  136.         VAR
  137.         Menu:                MenuHandle;
  138.     
  139.         BEGIN
  140.             
  141.             { Create the PopUp menu }
  142.             Menu := NewMenu(MenuID, '');
  143.             AppendAllMenuItemsPtr(Menu, MenuItems);
  144.             CheckItem(Menu, CheckedItem, true);
  145.             InsertMenu(Menu, - 1);
  146.     
  147.             { Get Menu Selection }
  148.             DoPopUpMenuPtr := PopUpMenuSelect(Menu, Top, Left, CheckedItem);
  149.     
  150.             { Tidy up }
  151.             DeleteMenu(MenuID);
  152.             DisposeMenu(Menu);
  153.     
  154.         END; {DoPopUpMenuPtr}
  155.     
  156.     BEGIN {PopUpMenu}
  157.  
  158.         WITH paramPtr^ DO
  159.         BEGIN
  160.  
  161.             { Parse parameters & Get Menu Position }
  162.             MenuItems := Params[1]^;
  163.             CheckedItem := ParamToNum(Params[2]);
  164.             GetCardWindowParams(CardWindowTop, CardWindowLeft);
  165.             Top := CardWindowTop + ParamToNum(Params[3]);
  166.             Left := CardWindowLeft + ParamToNum(Params[4]);
  167.  
  168.             { Run the popup menu }
  169.             IF (StringLength(ParamPtr, MenuItems) <> 0) THEN
  170.                 SelectedItem := DoPopUpMenuPtr(MenuID, MenuItems, CheckedItem, Top, Left)
  171.             ELSE
  172.                 SelectedItem := 0;
  173.                 
  174.             { Return the selection }
  175.             returnValue := NumToParam(LoWord(SelectedItem))
  176.  
  177.         END
  178.  
  179.     END { PopUpMenu } ;
  180.  
  181. END. { DummyUnit }
  182.  
  183.  
  184.